-- stack: in.0
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2744
-- card count: 1
-- first card id: 2930
-- list block id: 3617
-- print block id: 3395
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 23104 bytes
-- stack block size: 7680 bytes
-- created by hypercard version: 0x01228000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  if the version < 1.2 then
    answer "STACK DUMPER needs at least HyperCard version 1.2." with "ok"
  end if
end openStack

on QuitDump
  global SDFileOut, msgloc
  unlock screen
  hide msg
  set the loc of msg to msgloc
end QuitDump

Function plural n, string
if n ≠ 1 then put "s" after string
return n && string
end plural

on WriteScript string
  WriteText string
end WriteScript

on WriteText string
  -- replace 'return' with ASCII 11 (Vertical Tab), because this is
  -- the 'non-breaking line delimiter in Word.
  writestr quote
  put 1 into i
  put length of string into l
  put -1 into q
  repeat while i < l
    set cursor to busy
    if q < 0 then put offset(quote, char i to l of string) into q
    put offset(return, char i to l of string) into z
    if q = 0 and z = 0 then
      writestr char i to l of string
      put l into i
    else if q > 0 and (q < z or z = 0) then
      writestr char i to i+q-1 of string
      writestr quote -- double up quotes
      put i+q into i
      put -1 into q
    else
      writestr char i to i+z-2 of string
      writestr numToChar(11) -- vertical tab, or ^return in Word
      put i+z into i
      if q > 0 then put q-z into q
    end if
  end repeat
  writestr quote
end WriteText

on writestr string
  global SDFileout
  write string to file SDFileout
end writestr